home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / bb2000 / files / BlueMenu.dxr / 00017_masterScript.ls < prev    next >
Encoding:
Text File  |  1998-02-20  |  2.1 KB  |  102 lines
  1. property myMovieName, myCounter
  2. global gvideo, greturnmovie, gMovieName
  3.  
  4. on new me
  5.   set myCounter to 0
  6.   return me
  7. end
  8.  
  9. on autoUnloadMovie me
  10.   if not voidp(myMovieName) then
  11.     unloadMovie(myMovieName)
  12.   end if
  13.   set myMovieName to the movieName
  14. end
  15.  
  16. on autoPuppet me, start, stop
  17.   cursor(-1)
  18.   repeat with i = start to stop
  19.     puppetSprite(i, 1)
  20.   end repeat
  21. end
  22.  
  23. on autoNotPuppet me, start, stop
  24.   repeat with i = start to stop
  25.     puppetSprite(i, 0)
  26.   end repeat
  27. end
  28.  
  29. on checkSound me
  30.   if not soundBusy(1) then
  31.     puppetSound("LoveLite")
  32.   end if
  33. end
  34.  
  35. on playSound me, whichChannel, whichSound
  36.   puppetSound(whichChannel, 0)
  37.   puppetSound(whichChannel, member whichSound)
  38. end
  39.  
  40. on playVideo me, whichVid
  41.   set gvideo to whichVid
  42.   set greturnmovie to the movieName
  43.   autoGoMovie(me, "Movie5", 1)
  44. end
  45.  
  46. on playSpecialVideo me, whichVid
  47.   set greturnmovie to the movieName
  48.   autoGoMovie(me, "SlMov5", 1)
  49. end
  50.  
  51. on animateButton me, startNum, endNum
  52.   set myCounter to myCounter + 1
  53.   if myCounter > 5 then
  54.     set myCounter to 1
  55.   end if
  56.   repeat with i = startNum to endNum
  57.     if rollOver(i) then
  58.       cursor([1, 2])
  59.       if the mouseDown then
  60.         set the member of sprite i to member (getName(me, i) & "D.PCT")
  61.       else
  62.         set the member of sprite i to member (getName(me, i) & "0.PCT")
  63.       end if
  64.       next repeat
  65.     end if
  66.     set the member of sprite i to member (getName(me, i) & myCounter & ".PCT")
  67.   end repeat
  68.   if (rollOver() < startNum) or (rollOver() > endNum) then
  69.     cursor(-1)
  70.   end if
  71. end
  72.  
  73. on resetCounter me
  74.   set myCounter to 0
  75. end
  76.  
  77. on getName me, whichSprite
  78.   set myName to the name of the member of sprite whichSprite
  79.   return chars(myName, 1, the length of myName - 5)
  80. end
  81.  
  82. on getID me, whichSprite
  83.   set myName to the name of the member of sprite whichSprite
  84.   return chars(myName, the length of myName - 4, the length of myName - 4)
  85. end
  86.  
  87. on autoGoMovie me, whichMovie, fadeFlag
  88.   set gMovieName to whichMovie
  89.   if voidp(fadeFlag) then
  90.     autoNotPuppet(me, 1, 41)
  91.     go("exitblank")
  92.   else
  93.     if fadeFlag then
  94.       autoPuppet(me, 1, 41)
  95.       go("fade")
  96.     else
  97.       autoPuppet(me, 1, 41)
  98.       go("cont")
  99.     end if
  100.   end if
  101. end
  102.